home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / ORGANNEL CHARTS.cpt / ORGANNEL CHARTS™ / card_28895.txt < prev    next >
Text File  |  1988-02-06  |  860b  |  39 lines
  1. -- card: 28895 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2577
  5. -- name: 7i
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=189 top=199 right=221 bottom=261
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Add Sheet
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set lockScreen to true
  23.   put the userLevel into saveLevel
  24.   if the userLevel <5 then set userLevel to 5
  25.   if the userLevel <5 then exit mouseUp
  26.   go to card id 9861
  27.   doMenu "Copy Card"
  28.   go to card "7i"
  29.   doMenu "Paste Card"
  30.   get the name of this card
  31.   set the name of this card to "7i"
  32.   go to card id 28895
  33.   doMenu "Delete Card"
  34.   go to card "7i"
  35.   set userLevel to saveLevel
  36.   set lockScreen to false
  37. end mouseUp
  38.  
  39.